home *** CD-ROM | disk | FTP | other *** search

---

/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / tourpix / tour38.gif

< prev

next >

Graphics Interchange Format  |  1996-01-24  |  4KB  |  373x326  |  1-bit (2 colors)

Labels: text | screenshot | font | document
OCR: on count'wordFiles (path) local (matchesFound = 0) «number of Microsoft Word files we found on counter (folder) fileloop (f in folder) if file.isFolder (f) · counter (f) else # msg (file.fileFromPath (f)) if file.creator (f) == 'MSWD' matchesFound++ counter (file.folderFromPath (path)) if matchesFound == 0 local (s = file.fileFromPath (file.folderFromPath (path))) $ = "There are no Word files in the " + $ + " folder." dialog.alert (s) else local (s = file.fileFromPath (file.folderFromPath (path))) $ = "There were " + matchesFound + " Wword files in the " + $ + " folder." dialog.alert (s)

---